home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
comm1
/
dnload30.zip
/
SETUP1.WAS
< prev
next >
Wrap
Text File
|
1993-04-18
|
3KB
|
81 lines
;Download Pro Setup V.2.0 1993 (C) Michael Lee
;This script is used to setup the Paths for DNLOADPR.WAS and ZipPro.WAS.
;
integer status,waiting
string zippath,qwkpath,qwkwk,max_retry,max_session
string prowin_path=$PWTASKPATH,storage,dn_zippath,zip_to
proc main
when dialog call check_path
strfmt storage "%s\DNLOADPR" prowin_path
strfmt qwkwk "%s\DNLOADPR" prowin_path
strfmt dn_zippath "%s\DNLOAD" prowin_path
dialogbox 68 26 208 195 2 "Download Pro Setup"
text 64 10 46 8 left "Pkunzip Path:"
text 51 26 62 8 left "Mail Packet Path:"
text 23 41 88 8 left "Mail Packet working Path:"
editbox 112 9 84 11 zippath 25
editbox 112 25 84 11 qwkpath 25
editbox 112 41 84 11 qwkwk 25
editbox 112 57 85 11 storage 25
editbox 112 73 85 11 dn_zippath 25
editbox 112 89 85 11 zip_to 25
editbox 112 105 27 11 max_retry 2
editbox 112 120 28 11 max_session 2
pushbutton 49 171 40 14 "&OK" normal default
text 32 107 77 8 left "Max. Retry per Number:"
text 32 122 78 8 left "Max. Retry per Session:"
pushbutton 122 171 40 15 "&CANCEL" cancel
text 18 59 92 8 left "Download Pro storage Path:"
text 53 141 112 27 left "NOTE: Download Pro will create the Storage directory if it does not exist!"
text 33 75 78 8 left "Downloaded .ZIP Path:"
text 59 90 49 8 left "Unzip To Path:"
enddialog
status=$DIALOG
waiting=1
while waiting
endwhile
;this section will write the Path information and Dialing info to a file
;called DNLOAD.INI. This file is saved to your Prowin Directory.
strfmt S1 "%s\dnload.ini" prowin_path
strfmt S2 "%s\*.qw*" qwkpath
profilewr S1 "PATH" "prowin_path" prowin_path
profilewr S1 "PATH" "zippath" zippath
profilewr S1 "PATH" "qwkpath" S2
profilewr S1 "PATH" "qwkwk" qwkwk
profilewr S1 "DIAL" "max_retry" max_retry
profilewr S1 "DIAL" "max_session" max_session
profilewr S1 "PATH" "storage" storage
profilewr S1 "PATH" "dn_zippath" dn_zippath
profilewr S1 "PATH" "zip_to" zip_to
endproc
proc check_path
string str="D"
integer chkdialog
chkdialog=$DIALOG
switch chkdialog
case 10
findfirst qwkwk str ;checks to see if the "Mail Packet Working
if not found ;Path:" is present. If not it will create
mkdir qwkwk ;it.
endif
findfirst storage str ;checks for the "Download Pro Storage Path:"
if not found
mkdir storage
endif
findfirst zip_to str ;checks to see if the "Unzip to Path:" is present.
if not found
mkdir zip_to
endif
waiting=0
endcase
case 1
exit ;if cancel is selected. Exit script.
endcase
endswitch
endproc